10 PRINT"[147][158]":POKE53280,0:POKE53281,0:      PRINTCHR$(142) CHR$(8)
11 PRINT"          PUBLIC DOMAIN SOFTWARE 1985"
12 PRINT"[145][145][145][145]"
13 A$=A$+" ":X=X+1
14 PRINTA$"[207][208]
15 [153]A$"    WAITAND(null)WAIT
16 PRINTA$"[209][209][209][209] [223]
17 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
18 IFX=1THENFORT=0TO4000:NEXT
19 PRINT"[145][145][145][145][145][145]"
20 IFA$=>"                                 "THEN23
21 FORT=0TO18:NEXT
22 GOTO13
23 PRINT""
30 PRINT"[213][201]  [213][201][213][192][192][192][201][213][201]  [213][201]
35 [153]"(null)(null)  (null)(null)(null)(null)TANRIGHT$(null)(null)(null)  (null)(null)
40 PRINT"[221][221]  [221][221][221][221][213][203][221][221][221]  [221][221]   [213][192][192][201]
45 [153]"(null)(null)(null)RIGHT$(null)(null)(null)(null)MID$RIGHT$(null)(null)(null)  (null)(null)   MID$TANTAN(null)
50 PRINT"[221][202][203][202][203][221][221][221] [221][221][221][202][192][201][221][202][192][201]
55 [153]"MID$TANTANTANTAN(null)MID$(null) MID$(null)MID$TANTAN(null)MID$TANTAN(null)
60 PRINT"[213][192][192][192][192][201][213][192][192][192][201][213][192][192][201][213][192][192][201][213][201][176][174] [213][192][192][201][213][192][192][192][201]
65 [153]"(null)ORTANRIGHT$ (null)(null)ORTANRIGHT$(null)(null)ORTAN(null)(null)(null)RIGHT$(null)(null)(null)(null)(null) (null)ORTANEXP(null)ORTANRIGHT$(null)
70 PRINT"[221][173][192][203][213][203][221][173][192][203][221][221][202][201] [221][202][203][221][221][173][203][173][201][221][173][174] [221][173][192][203][221]
75 [153]"(null)ORTANRIGHT$MID$RIGHT$(null)(null)RIGHT$(null)(null)(null)(null)(null) (null)(null)RIGHT$(null)(null)ORTANRIGHT$(null)(null)OREXP (null)(null)RIGHT$(null)(null)
80 PRINT"[221][173][192][203] [221][221][221][221][221] [221][173][192][201][221][221][221][221][221][221] [221][221][221][173][192][174][221][221][221][221]
85 [153]"MID$TANTANTANTAN(null)MID$(null)MID$(null) MID$TANTAN(null)MID$(null)MID$(null)MID$(null) MID$(null)MID$TANTAN(null)MID$(null)MID$(null)
90 PRINT"WRITTEN BY I.GAFFLING
95 [161]KS$:[139]KS$[178]""[167]95
100 [153]"LOAD":[151]51,255:[151]52,79:[156]:[151]53280,0:[151]53281,0:[153][199](14) [199](8)
110 [140]:[141]730:TA[178]5:[134]HD(24),HD$(24)
120 SI[178]54272:[151]54295,0:[151]54296,15:[151]SI[170]2,0:[151]SI[170]3,8
130 [151]SI[170]5,0:[151]SI[170]6,240:[151]SI[170]4,17:SI[178]54273
140 [134]J(255):J(120)[178]1:J(247)[178]2:J(208)[178]3:J(160)[178]4:J(234)[178]5
150 [153]"LOAD"[199](142)"GOSUBHIGHSCORE TO DATE:CONT"HD
160 A[178]1024:X[178]0:X1[178]1:Y[178]21:Y1[178][171]1:P1[178]A[170]960:L[178]1884:ZX%[178]1:AN[178]0
170 [129]I[178]1[164]TA:[151]2023[171]I,81:[151]56295[171]I,7:[130]
180 [153]"FORUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
190 [153]"ON + + + + + + + + + + + + + + + + + + + +"
200 [153]"ONUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
210 [153]"ON + + + + + + + + + + + + + + + + + + + +"
220 [153]"ONUSR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
230 [153]"ON + + + + + + + + + + + + + + + + + + + +"
240 [153]"ONPRINT#USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)"
250 [153]"ON + + + + + + + + + + + + + + + + + + + +POKEWAITUSRUSRUSRUSR"
260 [153]"FORYOUR SCORE:VERIFY"PU"ON":[129]I[178]0[164]400:[130]
270 [151]SI[170]3,17
280 [158]20481:[151]SI,0:SW[178]SW[170]1:[139]SW[178]4[167]SW[178]0:[158]20481
290 [161]BR$:[139]BR$[179][177]" "[167]310
300 [161]BR$:[139]BR$[179][177]" "[167]300
310 X[178]X[170]X1:[139]X[179]0[176]X[177]39[167]X[178]X[171]X1:X1[178][171][180](X1)[172][181](2[172][187](1)[170]1):[151]SI,10
320 Y[178]Y[170]Y1
330 [139]Y[179]1[167]Y[178]Y[171]Y1:Y1[178][171]Y1:[151]SI,15
340 [139]ZX%[178]0[167][139][194](P1)[179][177]120[167][151]P1,32
350 ZX%[178]0:P1[178]A[170]40[172]Y[170]X:[139]Y[177]23[167]540
360 [139][194](P1)[179][177]32[167]380
370 [151]P1,81:[151]P1[170]54272,7:[137]280
380 DD[178][194](P1)
390 [145]J(DD)[137]410,420,440,460,480
400 [137]520
410 Y1[178][171]Y1:[151]P1,120:[151]P1[170]54272,11:[151]SI,20:[151]SI,15:ZX%[178]1:[137]280
420 [151]P1,32:[151]P1[170]1,32:[151]P1[170]40,32:[151]P1[170]41,32:[151]SI,Y[172]8:[151]SI,Y[172]5
430 [137]490
440 [151]P1,32:[151]P1[171]1,32:[151]P1[170]39,32:[151]P1[170]40,32:[151]SI,Y[172]8:[151]SI,Y[172]5
450 [137]490
460 [151]P1,32:[151]P1[170]1,32:[151]P1[171]39,32:[151]P1[171]40,32:[151]SI,Y[172]8:[151]SI,Y[172]5
470 [137]490
480 [151]P1,32:[151]P1[171]1,32:[151]P1[171]41,32:[151]P1[171]40,32:[151]SI,Y[172]8:[151]SI,Y[172]5
490 PU[178]PU[170](12[171]Y)[172]5:AN[178]AN[170]1:[139]AN[177]79[167]AN[178]0:[141]950:[153]"LOAD":[151]20480,1:[137]150
500 PN[178]PN[170](12[171]Y)[172]5
510 [139]PN[177]5000[167]PN[178]0:TA[178]TA[170]1:[151]2023[171]TA,81:[151]56295[171]TA,7:[141]880
520 [153]"FORYOUR SCORE:VERIFY"PU"ON"
530 Y1[178][171]Y1:[151]P1,81:[151]P1[170]54272,7:[137]280
540 X[178]0:X1[178][181](2[172][187](1)[170]1):Y[178]21:Y1[178][171]1
550 [151]2023[171]TA,32
560 TA[178]TA[171]1:[139]TA[177][178]0[167][151]SI[170]3,33:[129]I[178]70[164]180:[141]720:[130]:ZX%[178]1:[137]270
570 [153]"LOAD      ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"[199](14)
580 [153]"      (null)                      (null)"
590 [153]"      (null) POKE CHR$ A M E  O V E R ! WAIT (null)"
600 [153]"      (null)                      (null)"
610 [153]"      /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
620 [129]I[178]0[164]10:[151]SI,I[172]2:[153]""[163]8)" CHR$ A M E  O V E R ! ":[141]1000
630 [151]SI,20[171]I[172]2:[153]""[163]8)"POKE CHR$ A M E  O V E R ! WAIT":[141]1000:[130]
640 [153]"CLR         (null)OUR SCORE:"PU
650 [129]I[178]0[164]800:[130]:[151]198,0
660 TA[178]0:[139]PU[177]HD[167]HD[178]PU:[153]"FOR    (null)EEL DONE, NEW LEFT$IGHSCORE !!"
670 [141]1010
680 [153]" (null)ILL YOU PLAY AGAIN, PRESS ANY KEY ! "
690 AN[178]0:PU[178]0:PN[178]0:TA[178]2
700 [139][194](203)[178]64[175][194](653)[178]0[167]700
719 [153]"LOAD":[151]20480,1:[137]150
720 [151]SI,I[173]4:[151]SI,I[173]3:[151]SI,I[173]6:[142]
730 [153]"LOAD               (null)HE (null)EYS                 "
740 [153]"FOR               ORTANTANTAN=TANTANTAN^  "
750 [153]"      PRINT#(null)EFTWAITPRINT# <-- FOR(null)POKE (null) WAITFOR(null)POKE (null) WAITFOR(null) --> PRINT#WAIT(null)IGHTWAIT"
760 [153]"FOR               /TANTANTAN>TANTANTANEXP"
770 [153]"VERIFY (null)OU MUST HIT WITH YOUR RACKET AND A"
780 [153]" BALL  THE BRICKS OUT  OF THE WALL !RIGHT$F"
790 [153]" THE BALL DROPS  DOWN THE FLOOR YOU GET"
800 [153]" A NEW ONE. ATNT BEGINNING YOU HAVE THREE"
810 [153]" BALLS, BUT  EVERY 5000  POINTS YOU GET"
820 [153]" ONE MORE. (null)HEN  NO BALLS ARE LEFT, YOU"
830 [153]" LOSE AND THE GAME BREAKS."
840 [153]"   ATNLL RIGHT ?  (null)HEN PRESS ANY KEY !    "
850 Y[178]700:[129]I[178]20480[164]20549:[135]A:[151]I,A:[130]
860 Y[178]Y[171]1:[139]Y[177]0[175][194](203)[178]64[175][194](653)[178]0[167]860
870 [142]
880 [153]"FORYOUR SCORE:VERIFY"PU"ON":[151]SI[170]3,65
890 [151]P1,81:[151]P1[170]54272,7:[129]I[178]0[164]100
900 [153]"FOR"[163]8)"***** NEW BALL ! *****"
910 [151]SI,I:[151]SI,I[173]2:[151]SI,100[171]I
920 [153]"POKE"[163]8)"***** NEW BALL ! *****WAIT"
930 [130]:[153]""[163]8)"                      "
940 [151]SI[170]3,17:[142]
950 [153]"FORYOUR SCORE:VERIFY"PU"ON":[151]SI[170]3,65
960 [129]I[178]0[164]180:[151]SI[170]3,17:[151]SI,I[173]3:[151]SI[170]3,33:[151]SI,I[173]2.5
970 [151]P1,81:[151]P1[170]54272,7
980 [151]SI[170]3,65:[151]SI,90[171]I[173]2:[130]
990 [151]SI[170]3,17:[142]
1000 [129]J[178]0[164]100:[130]:[142]
1010 [153]"POKE     (null)LEASE GIVE YOUR INITIALS :"
1020 [153]"FOR             (null)   WAIT VERIFY-->   (null)P
1030 PRINT"[129]             [206]   [146] [149]-->   [196]OWN
1040 [153]"FOR           (null)PACE WAIT VERIFY-->   ASCIX
1050 PRINT"[154]"TAB(18)"---"
1060 PRINT"":POKE650,128:LE=64:LE$="":POKESI+3,65
1070 FORI=0TO2
1080 GETA$:IFA$<>"M"ANDA$<>"N"ANDA$<>" "THEN1080
1090 POKESI,LE:POKESI,LE/3
1100 IFA$="M"THENLE=LE+1:IFLE>90THENIFLE<95THENLE=95
1110 IFA$="M"THENIFLE>95THENLE=45
1120 IFA$="M"THENIFLE>45THENIFLE<65THENLE=65
1130 IFA$="N"THENLE=LE-1:IFLE<45THENLE=95
1140 IFA$="N"THENIFLE<95THENIFLE>90THENLE=90
1150 IFA$="N"THENIFLE<65THENIFLE>45THENLE=45
1160 IFA$<>" "THEN1220
1170 IFLE=95THENLE$="":I=0:PRINT""TAB(18)"---":LE=65:GOTO1220
1180 IFLE=45THENLE=32:GOTO1200
1190 LE=LE+128
1200 LE$=LE$+CHR$(LE):FORJ=0TO100:NEXT:POKESI,0:LE=45
1210 PRINT""TAB(18)LE$:GOTO1250
1220 IFLE<>45ANDLE<>95THENZE=LE+128:GOTO1240
1230 ZE=LE
1240 POKESI,0:PRINT""TAB(18+I)CHR$(ZE):GOTO1080
1250 NEXTI
1260 PRINT"                                  "
1270 PRINT"                              "
1280 PRINT"                               "
1290 PRINT"                               "
1300 PRINT""TAB(18)"   "
1310 FORI=1TO24
1320 IFPU>HD(I)THENGOSUB1420:I=24
1330 NEXT
1340 IFLE<>45THENZE=LE+32
1350 PRINT"          [200]ALL OF [198]AME:              [146]"
1360 FORI=1TO12:PRINT"[129]";
1370 PRINTTAB(3)RIGHT$("  "+STR$(I),2)"  [149]"RIGHT$("      "+STR$(HD(I)),6);
1380 PRINT" [151]"HD$(I)"[129]";
1390 PRINTTAB(22)RIGHT$("  "+STR$(I+12),2)"  [149]"RIGHT$("      "+STR$(HD(I+12)),6);
1400 PRINT" [151]"HD$(I+12)
1410 NEXT:RETURN
1420 FORJ=24TOISTEP-1
1430 HD(J)=HD(J-1):HD$(J)=HD$(J-1)
1440 NEXT
1450 HD(I)=PU:HD$(I)=LE$:RETURN
1460 DATA1,164,203,174,,80,192,36,240,29,192,39,240,1,96,202,208,1,96,142,,80
1470 DATA169,120,157,151,7,169,11,157,151,219,232,169,32,157,155,7,96,232,224,37
1480 DATA208,1,96,142,,80,169,120,157,155,7,169,11,157,155,219,202,169,32,157
1490 DATA151,7,96,,,,,